home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Bde4api.prg < prev    next >
Encoding:
Text File  |  1997-11-20  |  1.5 KB  |  36 lines
  1. //------------------------------------------------------------------------
  2. //
  3. //  bde4api.prg  --  Visual dBASE interface library for BDE 4.
  4. //  
  5. //  Visual dBASE Samples Group
  6. //
  7. //  $Revision:   1.3  $
  8. //
  9. //  Copyright (c) 1997, Borland International, Inc. All rights reserved.    
  10. //
  11. //------------------------------------------------------------------------  
  12.  
  13. #include "bde4api.h"
  14. extern DBIResult DbiOpenDatabaseList( phDBICur ) "idapi32.dll"
  15. extern DBIResult DbiGetNextRecord( hDBICur, DBILockType, pBYTE, pRECProps ) "idapi32.dll"
  16. extern DBIResult DbiCloseCursor( phDBICur  ) "idapi32.dll"
  17.  
  18. SET PROCEDURE TO PROGRAM()       ADDITIVE
  19. SET PROCEDURE TO "structure.prg" ADDITIVE
  20.  
  21. class StructDBDesc of Structure
  22.    super::addMember( TYPE_DBINAME, "szName",    SIZEOF_DBINAME ) // Logical name (Or alias)
  23.    super::addMember( TYPE_DBINAME, "szText",    SIZEOF_DBINAME ) // Descriptive text
  24.    super::addMember( TYPE_DBIPATH, "szPhyName", SIZEOF_DBIPATH ) // Physical name/path 
  25.    super::addMember( TYPE_DBINAME, "szDbName",  SIZEOF_DBINAME ) // Database type
  26. endclass
  27.  
  28. class RecProps of Structure
  29.    super::addMember( TYPE_UINT32, "iSeqNo" )         // When Seq# supported only
  30.    super::addMember( TYPE_UNIT32, "iPhyRecNum" )     // When Phy Rec#s supported only
  31.    super::addMember( TYPE_UNIT16, "bRecChanged" )    // Used by Delayed Updates Cur
  32.    super::addMember( TYPE_BOOL16, "bSeqNumChanged" ) // Not used
  33.    super::addMember( TYPE_BOOL16, "bDeleteFlag" )    // When soft delete supported 
  34. endclass
  35.  
  36.